Predicting Data Science Salaries
Anh Nguyen, Amira Bendjama, Hong Doan
Introduction and Problem Statement
The field of data science has experienced remarkable growth in recent
years, with organizations across diverse industries recognizing the
value of data-driven decision making. According to an article by 365
Data Science, the US Bureau of Labor Statistics estimated that the
employment rate for data scientists will grow by 36% from 2021 to 2031.
This rate is significantly higher than the average growth rate of 5%,
indicating substantial growth and demand for data science talent. The
surging demand for data science presents both opportunities and
challenges for job seekers, particularly recent graduates. One of the
significant hurdles they face is the lack of salary transparency in the
data science job market. This opacity creates uncertainty regarding
compensation and hinders job seekers’ ability to negotiate fair
salaries.
There are significant variations in data science salaries across
different industries and locations. For instance, according to Zippia,
data scientists working in the finance and technology sectors tend to
earn higher salaries compared to those in other industries. Similarly,
the geographical location also plays a crucial role in determining
salaries. Large cities with higher concentration of tech companies and
living costs such as San Francisco and New York offer higher salaries
than smaller cities.
The discrepancies in data science salaries can also be attributed to
various factors, including job responsibilities, experience level,
educational background, and specific skill sets. A study conducted by
Burtch Works, a leading executive recruiting firm, found that data
scientists with advanced degrees, such as Ph.D., tend to command higher
salaries compared to those with bachelor’s or master’s degrees.
Similarly, professionals with expertise in specialized areas, such as
machine learning or natural language processing, often earn higher
salaries due to the high demand for these skills.
According to a report surveyed 1,000 US-based full-time employees,
conducted by Visier, 79% of all survey respondents want some form of pay
transparency and 32% want total transparency, in which all employee
salaries are publicized. However, the 2022 Pay Clarity Survey by WTW
found that only 17% of companies are disclosing pay range information in
U.S. locations where not required by state or local laws. For the states
that have pay transparency laws such as Colorado and New York, there has
been a decline in job postings since the law went into effect. Some
employers comply with the new laws by expanding the salary ranges,
sometimes to ridiculous lengths. These statistics highlight the lack of
pay transparency not only in the field of data science, but across
multiple job markets. Job seekers often struggle to estimate salaries
for data science positions due to the scarcity of reliable
information.
To address this problem, our project aims to develop a predictive
model that estimates the salary for data science jobs. By leveraging
publicly available data and employing machine learning algorithms, we
seek to provide job seekers a better understanding of salary
expectations within the data science job market and empower them to
negotiate fair and competitive compensation packages.
Data Sources and Data preparation
#install.packages("rpart.plot")
#install.packages("ggplot2")
#install.packages("e1071")
# Install the plotly package
#install.packages("plotly")
# Read the first CSV file
data1 <- read.csv("ds_salaries_2023.csv")
# Read the second CSV file excluding the first column
data2 <- read.csv("ds_salaries.csv")[,-1]
# Append rows from data2 to data1
combined_data <- rbind(data2, data1)
# Write the combined data to a new CSV file
write.csv(combined_data, "combined_salaries.csv", row.names = FALSE)
library(ggplot2)
ds_salaries <- read.csv("combined_salaries.csv")
summary(ds_salaries)
work_year experience_level employment_type job_title salary
Min. :2020 Length:4362 Length:4362 Length:4362 Min. : 4000
1st Qu.:2022 Class :character Class :character Class :character 1st Qu.: 93918
Median :2022 Mode :character Mode :character Mode :character Median : 135000
Mean :2022 Mean : 209246
3rd Qu.:2023 3rd Qu.: 180000
Max. :2023 Max. :30400000
salary_currency salary_in_usd employee_residence remote_ratio company_location
Length:4362 Min. : 2859 Length:4362 Min. : 0.0 Length:4362
Class :character 1st Qu.: 90000 Class :character 1st Qu.: 0.0 Class :character
Mode :character Median :130000 Mode :character Median : 50.0 Mode :character
Mean :134054 Mean : 49.7
3rd Qu.:173000 3rd Qu.:100.0
Max. :600000 Max. :100.0
company_size
Length:4362
Class :character
Mode :character
head(ds_salaries,5)
This dataset has 607 rows and 12 columns
We want to focus on “USD” currency so we keep the “salary_in_usd”
column and drop “salary_currency” and “salary” column by using
subset()
ds_salaries <- subset(ds_salaries, select = -c( salary_currency, salary))
head(ds_salaries, 5)
num_null_rows <- sum(rowSums(is.na(ds_salaries)) == ncol(ds_salaries))
print(num_null_rows)
[1] 0
There are no null values
repeated_entries <- subset(ds_salaries, duplicated(ds_salaries))
print(repeated_entries)
There are 42 duplicate rows
# Remove duplicate rows
df <- ds_salaries[!duplicated(ds_salaries), ]
# check again
repeated_entries_new <- subset(df, duplicated(df))
print(repeated_entries_new)
Salaries groups
Adding new column to split our salaries into three groups Low , High,
Medium.The approach is to use Percentiles by Dividing the dataset based
on them. Hence, we are classifying salaries below the 25th percentile as
“Low”, salaries between the 25th and 75th percentile as “Medium”, and
salaries above the 75th percentile as “High”.
# adding new column
# Calculate the percentiles
percentiles <- quantile(df$salary_in_usd, probs = c(0.25, 0.75))
# Define the thresholds
low_threshold <- percentiles[1] # 25th percentile
high_threshold <- percentiles[2] # 75th percentile
# Create a new column based on percentiles
df$salary_classification <- ifelse(df$salary_in_usd < low_threshold, "Low",
ifelse(df$salary_in_usd > high_threshold, "High", "Medium"))
table(df$salary_classification)
High Low Medium
644 667 1357
- Data Exploration and Visualization
Top 10 Jobs in the dataset:
# Get top 10 job titles and their value counts
top10_job_title <- head(sort(table(df$job_title), decreasing = TRUE), 10)
top10_job_title_df <- data.frame(job_title = names(top10_job_title), count = as.numeric(top10_job_title))
top10_job_title_df
NA
# Load the required packages
library(plotly)
# Define custom color palette
custom_colors <- c("#FF6361", "#FFA600", "#FFD700", "#FF76BC", "#69D2E7", "#6A0572", "#FF34B3", "#118AB2", "#FFFF99", "#FFC1CC")
# Create bar plot
fig <- plot_ly(data = top10_job_title_df, x = ~reorder(job_title, -count), y = ~count, type = "bar",
marker = list(color = custom_colors), text = ~count) %>%
layout(title = "Top 10 Job Titles", xaxis = list(title = "Job Titles"), yaxis = list(title = "Count"),
font = list(size = 17), template = "plotly_dark")
# Adjust layout settings to avoid label overlap
fig <- fig %>% layout(
margin = list(b = 150), # Increase bottom margin to provide space for labels
xaxis = list(
tickangle = 45, # Rotate x-axis tick labels
automargin = TRUE # Automatically adjust margins to avoid overlap
)
)
# Display the plot
fig
NA
NA
Experience level categories:
Our Dataset has 4 different experience categories: - EN: Entry-level
/ Junior - MI: Mid-level / Intermediate - SE: Senior-level / Expert -
EX: Executive-level / Director
# Create a mapping of category abbreviations to full names
category_names_experience <- c("EN" = "Entry-level",
"MI" = "Mid-level",
"SE" = "Senior-level",
"EX" = "Executive-level")
# Get the sorted experience data
experience <- head(sort(table(df$experience_level), decreasing = TRUE))
# Replace the category names with full forms
names(experience) <- category_names_experience[names(experience)]
# Calculate the percentage for each category
percentages <- round(100 * experience / sum(experience), 2)
# Define a custom color palette
custom_colors <- c("#FFA998", "#FF76BC", "#69D2E7", "#FFA600")
# Create a pie chart with cute appearance
pie(experience, labels = paste(names(experience), "(", percentages, "%)"), col = custom_colors, border = "white", clockwise = TRUE, init.angle = 90)
# Add a legend with cute colors
legend("topright", legend = names(experience), fill = custom_colors, border = "white", cex = 0.8)
# Add a title with a cute font
title("Experience Distribution", font.main = 1)

Compnay size distribution
# Create a mapping of category abbreviations to full names
category_names_company <- c("M" = "Medium",
"L" = "Large",
"S" = "Small"
)
# Get the sorted company size data
company_size <- head(sort(table(df$company_size), decreasing = TRUE))
# Replace the category names with full forms
names(company_size) <- category_names_company[names(company_size)]
# Set the maximum value for the y-axis
max_count <- max(company_size)
# Create a bar plot with adjusted y-axis limits
barplot(company_size, col = custom_colors, main = "Company Size Distribution", xlab = "Company Size", ylab = "Count", ylim = c(0, max_count + 10))

NA
NA
Salaries Distribution
# Set the scipen option to a high value
options(scipen = 10)
# Create boxplot of salaries
bp <- boxplot(df$salary_in_usd / 1000,
col = "skyblue",
main = "Boxplot of Salaries",
ylab = "Salary in Thousands USD",
notch = TRUE)

Salaries classification Distribution
# Get the sorted salary classification data
salary_classification <- sort(table(df$salary_classification), decreasing = TRUE)
salary_classification_df <- data.frame(salary_classification= names(salary_classification ), count = as.numeric(salary_classification ))
fig <- plot_ly(
data = salary_classification_df,
x = ~reorder(salary_classification, -count),
y = ~count,
type = "bar",
marker = list(color = custom_colors),
text = ~count,
width = 700,
height = 400
)
fig <- fig %>% layout(
title = "Salary Classification Distribution",
xaxis = list(title = "Salary Classification"),
yaxis = list(title = "Count"),
font = list(size = 17),
template = "ggplot2"
)
fig
NA
NA
NA
# Create a data frame with counts of experience levels by salary classification
experience_salary <- table(df$experience_level, df$salary_classification)
# Define custom colors for each experience level
custom_colors <- c("#69D2E7", "#1900ff", "#FF6361", "#FFD700")
# Create a data frame for the plot
plot_data <- data.frame(Experience = rownames(experience_salary),
Salary_Classification = colnames(experience_salary),
Count = as.vector(experience_salary))
# Convert Count column to numeric
plot_data$Count <- as.numeric(plot_data$Count)
# Create the bar plot
library(plotly)
fig <- plot_ly(data = plot_data, x = ~Salary_Classification, y = ~Count,
color = ~Experience, colors = custom_colors, type = "bar") %>%
layout(title = "Experience Level by Salary Classification",
xaxis = list(title = "Salary Classification"),
yaxis = list(title = "Count"),
font = list(size = 17),
template = "plotly_dark")
fig
NA
NA
- Modeling a. Logistic regression
df$salary_classification <- factor(df$salary_classification)
# 3 - 58
set.seed(3) # Set a seed for reproducibility
train_indices <- sample(1:nrow(df), 0.8 * nrow(df)) # 80% for training
train_data <- df[train_indices, ]
test_data <- df[-train_indices, ]
# Separate the features (independent variables) from the target variable
# #X <- train_data[, !(names(train_data) %in% c("salary_in_usd", "salary_classification"))]
X <- train_data[,c("experience_level","company_size","remote_ratio")]
Y <- train_data$salary_classification
# Fit the logistic regression model
logistic_model <- multinom(Y ~ ., data = X)
# weights: 24 (14 variable)
initial value 2344.438624
iter 10 value 1920.321422
iter 20 value 1902.020156
iter 20 value 1902.020151
iter 20 value 1902.020151
final value 1902.020151
converged
# Make predictions on the test data
test_data$predicted_classification <- predict(logistic_model, newdata = test_data)
# Evaluate model performance
library(caret)
confusion_matrix <- confusionMatrix(test_data$predicted_classification, test_data$salary_classification)
print(confusion_matrix)
Confusion Matrix and Statistics
Reference
Prediction High Low Medium
High 11 0 6
Low 3 58 31
Medium 100 76 249
Overall Statistics
Accuracy : 0.5955
95% CI : (0.5525, 0.6374)
No Information Rate : 0.5356
P-Value [Acc > NIR] : 0.003046
Kappa : 0.2276
Mcnemar's Test P-Value : < 2.2e-16
Statistics by Class:
Class: High Class: Low Class: Medium
Sensitivity 0.09649 0.4328 0.8706
Specificity 0.98571 0.9150 0.2903
Pos Pred Value 0.64706 0.6304 0.5859
Neg Pred Value 0.80077 0.8281 0.6606
Prevalence 0.21348 0.2509 0.5356
Detection Rate 0.02060 0.1086 0.4663
Detection Prevalence 0.03184 0.1723 0.7959
Balanced Accuracy 0.54110 0.6739 0.5805
b. Random Forest
# Load the randomForest package
library(randomForest)
library(caret)
# Train the Random Forest classifier
rf_model <- randomForest(X, Y)
# Make predictions on new data
# Assuming you have a data frame called test_data with similar features as train_data
predictions <- predict(rf_model, test_data)
# Calculate accuracy
accuracy <- sum(predictions == test_data$salary_classification) / length(test_data$salary_classification)
cat("Accuracy:", accuracy, "\n")
Accuracy: 0.5898876
# Create confusion matrix
conf_matrix <- table(predictions, test_data$salary_classification)
cat("Confusion Matrix:\n")
Confusion Matrix:
print(conf_matrix)
predictions High Low Medium
High 0 0 0
Low 4 43 14
Medium 110 91 272
# Calculate precision, recall, and F1-score for each class
class_metrics <- caret::confusionMatrix(predictions, test_data$salary_classification)
cat("Class Metrics:\n")
Class Metrics:
print(class_metrics$byClass)
Sensitivity Specificity Pos Pred Value Neg Pred Value Precision Recall F1
Class: High 0.0000000 1.0000000 NaN 0.7865169 NA 0.0000000 NA
Class: Low 0.3208955 0.9550000 0.7049180 0.8076110 0.7049180 0.3208955 0.4410256
Class: Medium 0.9510490 0.1895161 0.5750529 0.7704918 0.5750529 0.9510490 0.7167325
Prevalence Detection Rate Detection Prevalence Balanced Accuracy
Class: High 0.2134831 0.00000000 0.0000000 0.5000000
Class: Low 0.2509363 0.08052434 0.1142322 0.6379478
Class: Medium 0.5355805 0.50936330 0.8857678 0.5702825
importance <- varImp(rf_model)
print(importance)
NA
NA
c. Support Vector Machine (SVM)
library(e1071)
# Train the SVM classifier
svm_model <- svm(Y ~ ., data = X, kernel = "radial")
# Make predictions on new data
# Assuming you have a data frame called test_data with similar features as train_data
predictions <- predict(svm_model, test_data)
# Evaluate the model
# Assuming you have the actual target variable values in test_data$salary_classification
accuracy <- sum(predictions == test_data$salary_classification) / length(test_data$salary_classification)
cat("Accuracy:", accuracy, "\n")
Accuracy: 0.5973783
# Create confusion matrix
conf_matrix <- table(predictions, test_data$salary_classification)
cat("Confusion Matrix:\n")
Confusion Matrix:
print(conf_matrix)
predictions High Low Medium
High 11 0 6
Low 3 49 21
Medium 100 85 259
plot_data <- data.frame(actual = test_data$salary_classification, predicted = predictions)
ggplot(plot_data, aes(x = actual, y = predicted)) +
geom_point() +
geom_abline(intercept = 0, slope = 1, linetype = "dashed", color = "red") +
labs(x = "Actual Salary", y = "Predicted Salary") +
ggtitle("Actual vs. Predicted Salaries")

d\. Decision Tree
#unique_values <- lapply(df, unique)
#print(unique_values)
set.seed(3) # For reproducibility
# Generate random indices for splitting
indices <- sample(1:nrow(df), size = nrow(df), replace = FALSE)
# Calculate the number of rows for training and testing sets
train_size <- round(0.8 * nrow(df))
test_size <- nrow(df) - train_size
# Split the dataset into training and testing sets
train_data <- df[indices[1:train_size], ]
test_data <- df[indices[(train_size + 1):nrow(df)], ]
# Check dimensions of the training and testing sets
dim(train_data)
[1] 2134 10
dim(test_data)
[1] 534 10
library("rpart")
library("rpart.plot")
decision_tree <- rpart(salary_classification ~ remote_ratio + company_size + experience_level + employment_type,
data = train_data,
method="class")
# I only tried attributes with a limited number of unique values because using attributes like job_title and employee_residence caused the program to run endlessly.
# remote_ratio is the most useful variable for prediction
# Make predictions on test data
predictions <- predict(decision_tree, newdata = test_data, type = "class")
# Evaluate the model
accuracy <- sum(predictions == test_data$salary_classification) / nrow(test_data)
print(paste("Accuracy:", accuracy))
[1] "Accuracy: 0.584269662921348"
rpart.plot(decision_tree)

rpart.plot(salary, type=2, extra=101, box.palette=list("Blues", "Oranges", "Grays", "Greens"))
Error: object 'salary' not found
Major Challenges and Solutions
- Data is not updated
- Dataset imbalance
- Data is imbalanced
Conclusion and Future Work
References
The
Data Scientist Job Outlook in 2023 | 365 Data Science
Which
Industry Pays the Highest Data Scientist Salary? How To Make The Most
Money As A Data Scientist - Zippia
Burtch-Works-Study_DS-PAP-2019.pdf
(burtchworks.com)
New
Visier Report Reveals 79% of Employees Want Pay Transparency
(prnewswire.com)
More
NA organizations plan to disclose pay information - WTW
(wtwco.com)
Study:
Pay Transparency Reduces Recruiting Costs (shrm.org)
LS0tDQp0aXRsZTogIkRhdGEgU2NpZW5jZSBTYWxhcmllcyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiMgUHJlZGljdGluZyBEYXRhIFNjaWVuY2UgU2FsYXJpZXMNCg0KKioqQW5oIE5ndXllbiwgQW1pcmEgQmVuZGphbWEsIEhvbmcgRG9hbioqKg0KDQoxLiAgKipJbnRyb2R1Y3Rpb24gYW5kIFByb2JsZW0gU3RhdGVtZW50KioNCg0KICAgIFRoZSBmaWVsZCBvZiBkYXRhIHNjaWVuY2UgaGFzIGV4cGVyaWVuY2VkIHJlbWFya2FibGUgZ3Jvd3RoIGluIHJlY2VudCB5ZWFycywgd2l0aCBvcmdhbml6YXRpb25zIGFjcm9zcyBkaXZlcnNlIGluZHVzdHJpZXMgcmVjb2duaXppbmcgdGhlIHZhbHVlIG9mIGRhdGEtZHJpdmVuIGRlY2lzaW9uIG1ha2luZy4gQWNjb3JkaW5nIHRvIGFuIGFydGljbGUgYnkgMzY1IERhdGEgU2NpZW5jZSwgdGhlIFVTIEJ1cmVhdSBvZiBMYWJvciBTdGF0aXN0aWNzIGVzdGltYXRlZCB0aGF0IHRoZSBlbXBsb3ltZW50IHJhdGUgZm9yIGRhdGEgc2NpZW50aXN0cyB3aWxsIGdyb3cgYnkgMzYlIGZyb20gMjAyMSB0byAyMDMxLiBUaGlzIHJhdGUgaXMgc2lnbmlmaWNhbnRseSBoaWdoZXIgdGhhbiB0aGUgYXZlcmFnZSBncm93dGggcmF0ZSBvZiA1JSwgaW5kaWNhdGluZyBzdWJzdGFudGlhbCBncm93dGggYW5kIGRlbWFuZCBmb3IgZGF0YSBzY2llbmNlIHRhbGVudC4gVGhlIHN1cmdpbmcgZGVtYW5kIGZvciBkYXRhIHNjaWVuY2UgcHJlc2VudHMgYm90aCBvcHBvcnR1bml0aWVzIGFuZCBjaGFsbGVuZ2VzIGZvciBqb2Igc2Vla2VycywgcGFydGljdWxhcmx5IHJlY2VudCBncmFkdWF0ZXMuIE9uZSBvZiB0aGUgc2lnbmlmaWNhbnQgaHVyZGxlcyB0aGV5IGZhY2UgaXMgdGhlIGxhY2sgb2Ygc2FsYXJ5IHRyYW5zcGFyZW5jeSBpbiB0aGUgZGF0YSBzY2llbmNlIGpvYiBtYXJrZXQuIFRoaXMgb3BhY2l0eSBjcmVhdGVzIHVuY2VydGFpbnR5IHJlZ2FyZGluZyBjb21wZW5zYXRpb24gYW5kIGhpbmRlcnMgam9iIHNlZWtlcnMnIGFiaWxpdHkgdG8gbmVnb3RpYXRlIGZhaXIgc2FsYXJpZXMuDQoNCiAgICBUaGVyZSBhcmUgc2lnbmlmaWNhbnQgdmFyaWF0aW9ucyBpbiBkYXRhIHNjaWVuY2Ugc2FsYXJpZXMgYWNyb3NzIGRpZmZlcmVudCBpbmR1c3RyaWVzIGFuZCBsb2NhdGlvbnMuIEZvciBpbnN0YW5jZSwgYWNjb3JkaW5nIHRvIFppcHBpYSwgZGF0YSBzY2llbnRpc3RzIHdvcmtpbmcgaW4gdGhlIGZpbmFuY2UgYW5kIHRlY2hub2xvZ3kgc2VjdG9ycyB0ZW5kIHRvIGVhcm4gaGlnaGVyIHNhbGFyaWVzIGNvbXBhcmVkIHRvIHRob3NlIGluIG90aGVyIGluZHVzdHJpZXMuIFNpbWlsYXJseSwgdGhlIGdlb2dyYXBoaWNhbCBsb2NhdGlvbiBhbHNvIHBsYXlzIGEgY3J1Y2lhbCByb2xlIGluIGRldGVybWluaW5nIHNhbGFyaWVzLiBMYXJnZSBjaXRpZXMgd2l0aCBoaWdoZXIgY29uY2VudHJhdGlvbiBvZiB0ZWNoIGNvbXBhbmllcyBhbmQgbGl2aW5nIGNvc3RzIHN1Y2ggYXMgU2FuIEZyYW5jaXNjbyBhbmQgTmV3IFlvcmsgb2ZmZXIgaGlnaGVyIHNhbGFyaWVzIHRoYW4gc21hbGxlciBjaXRpZXMuDQoNCiAgICBUaGUgZGlzY3JlcGFuY2llcyBpbiBkYXRhIHNjaWVuY2Ugc2FsYXJpZXMgY2FuIGFsc28gYmUgYXR0cmlidXRlZCB0byB2YXJpb3VzIGZhY3RvcnMsIGluY2x1ZGluZyBqb2IgcmVzcG9uc2liaWxpdGllcywgZXhwZXJpZW5jZSBsZXZlbCwgZWR1Y2F0aW9uYWwgYmFja2dyb3VuZCwgYW5kIHNwZWNpZmljIHNraWxsIHNldHMuIEEgc3R1ZHkgY29uZHVjdGVkIGJ5IEJ1cnRjaCBXb3JrcywgYSBsZWFkaW5nIGV4ZWN1dGl2ZSByZWNydWl0aW5nIGZpcm0sIGZvdW5kIHRoYXQgZGF0YSBzY2llbnRpc3RzIHdpdGggYWR2YW5jZWQgZGVncmVlcywgc3VjaCBhcyBQaC5ELiwgdGVuZCB0byBjb21tYW5kIGhpZ2hlciBzYWxhcmllcyBjb21wYXJlZCB0byB0aG9zZSB3aXRoIGJhY2hlbG9yJ3Mgb3IgbWFzdGVyJ3MgZGVncmVlcy4gU2ltaWxhcmx5LCBwcm9mZXNzaW9uYWxzIHdpdGggZXhwZXJ0aXNlIGluIHNwZWNpYWxpemVkIGFyZWFzLCBzdWNoIGFzIG1hY2hpbmUgbGVhcm5pbmcgb3IgbmF0dXJhbCBsYW5ndWFnZSBwcm9jZXNzaW5nLCBvZnRlbiBlYXJuIGhpZ2hlciBzYWxhcmllcyBkdWUgdG8gdGhlIGhpZ2ggZGVtYW5kIGZvciB0aGVzZSBza2lsbHMuDQogICAgDQogICAgQWNjb3JkaW5nIHRvIGEgcmVwb3J0IHN1cnZleWVkIDEsMDAwIFVTLWJhc2VkIGZ1bGwtdGltZSBlbXBsb3llZXMsIGNvbmR1Y3RlZCBieSBWaXNpZXIsIDc5JSBvZiBhbGwgc3VydmV5IHJlc3BvbmRlbnRzIHdhbnQgc29tZSBmb3JtIG9mIHBheSB0cmFuc3BhcmVuY3kgYW5kIDMyJSB3YW50IHRvdGFsIHRyYW5zcGFyZW5jeSwgaW4gd2hpY2ggYWxsIGVtcGxveWVlIHNhbGFyaWVzIGFyZSBwdWJsaWNpemVkLiBIb3dldmVyLCB0aGUgMjAyMiBQYXkgQ2xhcml0eSBTdXJ2ZXkgYnkgV1RXIGZvdW5kIHRoYXQgb25seSAxNyUgb2YgY29tcGFuaWVzIGFyZSBkaXNjbG9zaW5nIHBheSByYW5nZSBpbmZvcm1hdGlvbiBpbiBVLlMuIGxvY2F0aW9ucyB3aGVyZSBub3QgcmVxdWlyZWQgYnkgc3RhdGUgb3IgbG9jYWwgbGF3cy4gRm9yIHRoZSBzdGF0ZXMgdGhhdCBoYXZlIHBheSB0cmFuc3BhcmVuY3kgbGF3cyBzdWNoIGFzIENvbG9yYWRvIGFuZCBOZXcgWW9yaywgdGhlcmUgaGFzIGJlZW4gYSBkZWNsaW5lIGluIGpvYiBwb3N0aW5ncyBzaW5jZSB0aGUgbGF3IHdlbnQgaW50byBlZmZlY3QuIFNvbWUgZW1wbG95ZXJzIGNvbXBseSB3aXRoIHRoZSBuZXcgbGF3cyBieSBleHBhbmRpbmcgdGhlIHNhbGFyeSByYW5nZXMsIHNvbWV0aW1lcyB0byByaWRpY3Vsb3VzIGxlbmd0aHMuIFRoZXNlIHN0YXRpc3RpY3MgaGlnaGxpZ2h0IHRoZSBsYWNrIG9mIHBheSB0cmFuc3BhcmVuY3kgbm90IG9ubHkgaW4gdGhlIGZpZWxkIG9mIGRhdGEgc2NpZW5jZSwgYnV0IGFjcm9zcyBtdWx0aXBsZSBqb2IgbWFya2V0cy4gSm9iIHNlZWtlcnMgb2Z0ZW4gc3RydWdnbGUgdG8gZXN0aW1hdGUgc2FsYXJpZXMgZm9yIGRhdGEgc2NpZW5jZSBwb3NpdGlvbnMgZHVlIHRvIHRoZSBzY2FyY2l0eSBvZiByZWxpYWJsZSBpbmZvcm1hdGlvbi4NCg0KICAgIFRvIGFkZHJlc3MgdGhpcyBwcm9ibGVtLCBvdXIgcHJvamVjdCBhaW1zIHRvIGRldmVsb3AgYSBwcmVkaWN0aXZlIG1vZGVsIHRoYXQgZXN0aW1hdGVzIHRoZSBzYWxhcnkgZm9yIGRhdGEgc2NpZW5jZSBqb2JzLiBCeSBsZXZlcmFnaW5nIHB1YmxpY2x5IGF2YWlsYWJsZSBkYXRhIGFuZCBlbXBsb3lpbmcgbWFjaGluZSBsZWFybmluZyBhbGdvcml0aG1zLCB3ZSBzZWVrIHRvIHByb3ZpZGUgam9iIHNlZWtlcnMgYSBiZXR0ZXIgdW5kZXJzdGFuZGluZyBvZiBzYWxhcnkgZXhwZWN0YXRpb25zIHdpdGhpbiB0aGUgZGF0YSBzY2llbmNlIGpvYiBtYXJrZXQgYW5kIGVtcG93ZXIgdGhlbSB0byBuZWdvdGlhdGUgZmFpciBhbmQgY29tcGV0aXRpdmUgY29tcGVuc2F0aW9uIHBhY2thZ2VzLlwNCg0KMi4gICoqRGF0YSBTb3VyY2VzIGFuZCBEYXRhIHByZXBhcmF0aW9uKioNCiAqIEluc3RhbGwgcGFja2FnZXMgDQpgYGB7cn0NCiNpbnN0YWxsLnBhY2thZ2VzKCJycGFydC5wbG90IikNCiNpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikNCiNpbnN0YWxsLnBhY2thZ2VzKCJlMTA3MSIpDQojIEluc3RhbGwgdGhlIHBsb3RseSBwYWNrYWdlDQojaW5zdGFsbC5wYWNrYWdlcygicGxvdGx5IikNCg0KYGBgDQoqIEltcG9ydCBkYXRhDQoNCmBgYHtyfQ0KIyBSZWFkIHRoZSBmaXJzdCBDU1YgZmlsZQ0KZGF0YTEgPC0gcmVhZC5jc3YoImRzX3NhbGFyaWVzXzIwMjMuY3N2IikNCg0KIyBSZWFkIHRoZSBzZWNvbmQgQ1NWIGZpbGUgZXhjbHVkaW5nIHRoZSBmaXJzdCBjb2x1bW4NCmRhdGEyIDwtIHJlYWQuY3N2KCJkc19zYWxhcmllcy5jc3YiKVssLTFdDQoNCiMgQXBwZW5kIHJvd3MgZnJvbSBkYXRhMiB0byBkYXRhMQ0KY29tYmluZWRfZGF0YSA8LSByYmluZChkYXRhMiwgZGF0YTEpDQoNCiMgV3JpdGUgdGhlIGNvbWJpbmVkIGRhdGEgdG8gYSBuZXcgQ1NWIGZpbGUNCndyaXRlLmNzdihjb21iaW5lZF9kYXRhLCAiY29tYmluZWRfc2FsYXJpZXMuY3N2Iiwgcm93Lm5hbWVzID0gRkFMU0UpDQoNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikNCmRzX3NhbGFyaWVzIDwtIHJlYWQuY3N2KCJjb21iaW5lZF9zYWxhcmllcy5jc3YiKQ0KYGBgDQoqIERhdGEgZGVzY3JpcHRpb24NCmBgYHtyfQ0Kc3VtbWFyeShkc19zYWxhcmllcykNCg0KYGBgDQoNCg0KDQoqIFRoZSBmaXJzdCA1IHJvd3MgDQpgYGB7cn0NCmhlYWQoZHNfc2FsYXJpZXMsNSkNCmBgYA0KVGhpcyBkYXRhc2V0IGhhcyA2MDcgcm93cyBhbmQgMTIgY29sdW1ucw0KDQoNCldlIHdhbnQgdG8gZm9jdXMgb24gIlVTRCIgY3VycmVuY3kgc28gd2Uga2VlcCB0aGUgInNhbGFyeV9pbl91c2QiIGNvbHVtbiBhbmQgZHJvcCAic2FsYXJ5X2N1cnJlbmN5IiBhbmQgInNhbGFyeSIgY29sdW1uIGJ5IHVzaW5nIHN1YnNldCgpDQpgYGB7cn0NCmRzX3NhbGFyaWVzIDwtIHN1YnNldChkc19zYWxhcmllcywgc2VsZWN0ID0gLWMoIHNhbGFyeV9jdXJyZW5jeSwgc2FsYXJ5KSkNCmhlYWQoZHNfc2FsYXJpZXMsIDUpDQpgYGANCg0KKiBDaGVjayBmb3IgbnVsbCB2YWx1ZXMNCmBgYHtyfQ0KbnVtX251bGxfcm93cyA8LSBzdW0ocm93U3Vtcyhpcy5uYShkc19zYWxhcmllcykpID09IG5jb2woZHNfc2FsYXJpZXMpKQ0KcHJpbnQobnVtX251bGxfcm93cykNCmBgYA0KVGhlcmUgYXJlIG5vIG51bGwgdmFsdWVzDQoNCiogQ2hlY2sgZm9yIGR1cGxpY2F0ZSByb3dzDQpgYGB7cn0NCnJlcGVhdGVkX2VudHJpZXMgPC0gc3Vic2V0KGRzX3NhbGFyaWVzLCBkdXBsaWNhdGVkKGRzX3NhbGFyaWVzKSkNCnByaW50KHJlcGVhdGVkX2VudHJpZXMpDQpgYGANClRoZXJlIGFyZSA0MiBkdXBsaWNhdGUgcm93cw0KDQoqIFJlbW92ZSBkdXBsaWNhdGVzDQpgYGB7cn0NCiMgUmVtb3ZlIGR1cGxpY2F0ZSByb3dzDQpkZiA8LSBkc19zYWxhcmllc1shZHVwbGljYXRlZChkc19zYWxhcmllcyksIF0NCiMgY2hlY2sgYWdhaW4NCnJlcGVhdGVkX2VudHJpZXNfbmV3IDwtIHN1YnNldChkZiwgZHVwbGljYXRlZChkZikpDQpwcmludChyZXBlYXRlZF9lbnRyaWVzX25ldykNCmBgYA0KIyMjIFNhbGFyaWVzIGdyb3VwcyANCkFkZGluZyBuZXcgY29sdW1uIHRvIHNwbGl0IG91ciBzYWxhcmllcyBpbnRvIHRocmVlIGdyb3VwcyBMb3cgLCBIaWdoLCBNZWRpdW0uVGhlIGFwcHJvYWNoIGlzIHRvIHVzZSBQZXJjZW50aWxlcyBieSBEaXZpZGluZyB0aGUgZGF0YXNldCBiYXNlZCBvbiB0aGVtLiBIZW5jZSwgd2UgYXJlIGNsYXNzaWZ5aW5nIHNhbGFyaWVzIGJlbG93IHRoZSAyNXRoIHBlcmNlbnRpbGUgYXMgIkxvdyIsIHNhbGFyaWVzIGJldHdlZW4gdGhlIDI1dGggYW5kIDc1dGggcGVyY2VudGlsZSBhcyAiTWVkaXVtIiwgYW5kIHNhbGFyaWVzIGFib3ZlIHRoZSA3NXRoIHBlcmNlbnRpbGUgYXMgIkhpZ2giLg0KDQpgYGB7cn0NCiMgYWRkaW5nIG5ldyBjb2x1bW4gDQojIENhbGN1bGF0ZSB0aGUgcGVyY2VudGlsZXMNCnBlcmNlbnRpbGVzIDwtIHF1YW50aWxlKGRmJHNhbGFyeV9pbl91c2QsIHByb2JzID0gYygwLjI1LCAwLjc1KSkNCg0KIyBEZWZpbmUgdGhlIHRocmVzaG9sZHMNCmxvd190aHJlc2hvbGQgPC0gcGVyY2VudGlsZXNbMV0gICMgMjV0aCBwZXJjZW50aWxlDQpoaWdoX3RocmVzaG9sZCA8LSBwZXJjZW50aWxlc1syXSAgIyA3NXRoIHBlcmNlbnRpbGUNCg0KIyBDcmVhdGUgYSBuZXcgY29sdW1uIGJhc2VkIG9uIHBlcmNlbnRpbGVzDQpkZiRzYWxhcnlfY2xhc3NpZmljYXRpb24gPC0gaWZlbHNlKGRmJHNhbGFyeV9pbl91c2QgPCBsb3dfdGhyZXNob2xkLCAiTG93IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKGRmJHNhbGFyeV9pbl91c2QgPiBoaWdoX3RocmVzaG9sZCwgIkhpZ2giLCAiTWVkaXVtIikpDQoNCnRhYmxlKGRmJHNhbGFyeV9jbGFzc2lmaWNhdGlvbikNCmBgYA0KDQoNCjMuICAqKkRhdGEgRXhwbG9yYXRpb24gYW5kIFZpc3VhbGl6YXRpb24qKg0KDQojIyMgVG9wIDEwIEpvYnMgaW4gdGhlIGRhdGFzZXQ6IA0KDQoNCg0KYGBge3J9DQojIEdldCB0b3AgMTAgam9iIHRpdGxlcyBhbmQgdGhlaXIgdmFsdWUgY291bnRzDQp0b3AxMF9qb2JfdGl0bGUgPC0gaGVhZChzb3J0KHRhYmxlKGRmJGpvYl90aXRsZSksIGRlY3JlYXNpbmcgPSBUUlVFKSwgMTApDQoNCnRvcDEwX2pvYl90aXRsZV9kZiA8LSBkYXRhLmZyYW1lKGpvYl90aXRsZSA9IG5hbWVzKHRvcDEwX2pvYl90aXRsZSksIGNvdW50ID0gYXMubnVtZXJpYyh0b3AxMF9qb2JfdGl0bGUpKQ0KdG9wMTBfam9iX3RpdGxlX2RmDQoNCmBgYA0KYGBge3J9DQojIExvYWQgdGhlIHJlcXVpcmVkIHBhY2thZ2VzDQpsaWJyYXJ5KHBsb3RseSkNCg0KIyBEZWZpbmUgY3VzdG9tIGNvbG9yIHBhbGV0dGUNCmN1c3RvbV9jb2xvcnMgPC0gYygiI0ZGNjM2MSIsICIjRkZBNjAwIiwgIiNGRkQ3MDAiLCAiI0ZGNzZCQyIsICIjNjlEMkU3IiwgIiM2QTA1NzIiLCAiI0ZGMzRCMyIsICIjMTE4QUIyIiwgIiNGRkZGOTkiLCAiI0ZGQzFDQyIpDQoNCiMgQ3JlYXRlIGJhciBwbG90DQpmaWcgPC0gcGxvdF9seShkYXRhID0gdG9wMTBfam9iX3RpdGxlX2RmLCB4ID0gfnJlb3JkZXIoam9iX3RpdGxlLCAtY291bnQpLCB5ID0gfmNvdW50LCB0eXBlID0gImJhciIsDQogICAgICAgICAgICAgICBtYXJrZXIgPSBsaXN0KGNvbG9yID0gY3VzdG9tX2NvbG9ycyksIHRleHQgPSB+Y291bnQpICU+JQ0KICBsYXlvdXQodGl0bGUgPSAiVG9wIDEwIEpvYiBUaXRsZXMiLCB4YXhpcyA9IGxpc3QodGl0bGUgPSAiSm9iIFRpdGxlcyIpLCB5YXhpcyA9IGxpc3QodGl0bGUgPSAiQ291bnQiKSwNCiAgICAgICAgIGZvbnQgPSBsaXN0KHNpemUgPSAxNyksIHRlbXBsYXRlID0gInBsb3RseV9kYXJrIikNCg0KIyBBZGp1c3QgbGF5b3V0IHNldHRpbmdzIHRvIGF2b2lkIGxhYmVsIG92ZXJsYXANCmZpZyA8LSBmaWcgJT4lIGxheW91dCgNCiAgbWFyZ2luID0gbGlzdChiID0gMTUwKSwgICMgSW5jcmVhc2UgYm90dG9tIG1hcmdpbiB0byBwcm92aWRlIHNwYWNlIGZvciBsYWJlbHMNCiAgeGF4aXMgPSBsaXN0KA0KICAgIHRpY2thbmdsZSA9IDQ1LCAgIyBSb3RhdGUgeC1heGlzIHRpY2sgbGFiZWxzDQogICAgYXV0b21hcmdpbiA9IFRSVUUgICMgQXV0b21hdGljYWxseSBhZGp1c3QgbWFyZ2lucyB0byBhdm9pZCBvdmVybGFwDQogICkNCikNCg0KIyBEaXNwbGF5IHRoZSBwbG90DQpmaWcNCg0KDQpgYGANCg0KIyMjIEV4cGVyaWVuY2UgbGV2ZWwgY2F0ZWdvcmllczoNCk91ciBEYXRhc2V0IGhhcyA0IGRpZmZlcmVudCBleHBlcmllbmNlIGNhdGVnb3JpZXM6DQotIEVOOiBFbnRyeS1sZXZlbCAvIEp1bmlvcg0KLSBNSTogTWlkLWxldmVsIC8gSW50ZXJtZWRpYXRlDQotIFNFOiBTZW5pb3ItbGV2ZWwgLyBFeHBlcnQNCi0gRVg6IEV4ZWN1dGl2ZS1sZXZlbCAvIERpcmVjdG9yDQoNCmBgYHtyfQ0KIyBDcmVhdGUgYSBtYXBwaW5nIG9mIGNhdGVnb3J5IGFiYnJldmlhdGlvbnMgdG8gZnVsbCBuYW1lcw0KY2F0ZWdvcnlfbmFtZXNfZXhwZXJpZW5jZSA8LSBjKCJFTiIgPSAiRW50cnktbGV2ZWwiLA0KICAgICAgICAgICAgICAgICAgICAiTUkiID0gIk1pZC1sZXZlbCIsDQogICAgICAgICAgICAgICAgICAgICJTRSIgPSAiU2VuaW9yLWxldmVsIiwNCiAgICAgICAgICAgICAgICAgICAgIkVYIiA9ICJFeGVjdXRpdmUtbGV2ZWwiKQ0KDQojIEdldCB0aGUgc29ydGVkIGV4cGVyaWVuY2UgZGF0YQ0KZXhwZXJpZW5jZSA8LSBoZWFkKHNvcnQodGFibGUoZGYkZXhwZXJpZW5jZV9sZXZlbCksIGRlY3JlYXNpbmcgPSBUUlVFKSkNCg0KIyBSZXBsYWNlIHRoZSBjYXRlZ29yeSBuYW1lcyB3aXRoIGZ1bGwgZm9ybXMNCm5hbWVzKGV4cGVyaWVuY2UpIDwtIGNhdGVnb3J5X25hbWVzX2V4cGVyaWVuY2VbbmFtZXMoZXhwZXJpZW5jZSldDQoNCiMgQ2FsY3VsYXRlIHRoZSBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpwZXJjZW50YWdlcyA8LSByb3VuZCgxMDAgKiBleHBlcmllbmNlIC8gc3VtKGV4cGVyaWVuY2UpLCAyKQ0KDQojIERlZmluZSBhIGN1c3RvbSBjb2xvciBwYWxldHRlDQpjdXN0b21fY29sb3JzIDwtIGMoIiNGRkE5OTgiLCAiI0ZGNzZCQyIsICIjNjlEMkU3IiwgIiNGRkE2MDAiKQ0KDQojIENyZWF0ZSBhIHBpZSBjaGFydCB3aXRoIGN1dGUgYXBwZWFyYW5jZQ0KcGllKGV4cGVyaWVuY2UsIGxhYmVscyA9IHBhc3RlKG5hbWVzKGV4cGVyaWVuY2UpLCAiKCIsIHBlcmNlbnRhZ2VzLCAiJSkiKSwgY29sID0gY3VzdG9tX2NvbG9ycywgYm9yZGVyID0gIndoaXRlIiwgY2xvY2t3aXNlID0gVFJVRSwgaW5pdC5hbmdsZSA9IDkwKQ0KDQojIEFkZCBhIGxlZ2VuZCB3aXRoIGN1dGUgY29sb3JzDQpsZWdlbmQoInRvcHJpZ2h0IiwgbGVnZW5kID0gbmFtZXMoZXhwZXJpZW5jZSksIGZpbGwgPSBjdXN0b21fY29sb3JzLCBib3JkZXIgPSAid2hpdGUiLCBjZXggPSAwLjgpDQoNCiMgQWRkIGEgdGl0bGUgd2l0aCBhIGN1dGUgZm9udA0KdGl0bGUoIkV4cGVyaWVuY2UgRGlzdHJpYnV0aW9uIiwgZm9udC5tYWluID0gMSkNCg0KYGBgDQojIyMgQ29tcG5heSBzaXplIGRpc3RyaWJ1dGlvbiANCmBgYHtyfQ0KIyBDcmVhdGUgYSBtYXBwaW5nIG9mIGNhdGVnb3J5IGFiYnJldmlhdGlvbnMgdG8gZnVsbCBuYW1lcw0KY2F0ZWdvcnlfbmFtZXNfY29tcGFueSA8LSBjKCJNIiA9ICJNZWRpdW0iLA0KICAgICAgICAgICAgICAgICAgICAiTCIgPSAiTGFyZ2UiLA0KICAgICAgICAgICAgICAgICAgICAiUyIgPSAiU21hbGwiDQogICAgICAgICAgICAgICAgICAgKQ0KDQoNCiMgR2V0IHRoZSBzb3J0ZWQgY29tcGFueSBzaXplIGRhdGENCmNvbXBhbnlfc2l6ZSA8LSBoZWFkKHNvcnQodGFibGUoZGYkY29tcGFueV9zaXplKSwgZGVjcmVhc2luZyA9IFRSVUUpKQ0KDQojIFJlcGxhY2UgdGhlIGNhdGVnb3J5IG5hbWVzIHdpdGggZnVsbCBmb3Jtcw0KbmFtZXMoY29tcGFueV9zaXplKSA8LSBjYXRlZ29yeV9uYW1lc19jb21wYW55W25hbWVzKGNvbXBhbnlfc2l6ZSldDQoNCiMgU2V0IHRoZSBtYXhpbXVtIHZhbHVlIGZvciB0aGUgeS1heGlzDQptYXhfY291bnQgPC0gbWF4KGNvbXBhbnlfc2l6ZSkNCg0KIyBDcmVhdGUgYSBiYXIgcGxvdCB3aXRoIGFkanVzdGVkIHktYXhpcyBsaW1pdHMNCmJhcnBsb3QoY29tcGFueV9zaXplLCBjb2wgPSBjdXN0b21fY29sb3JzLCBtYWluID0gIkNvbXBhbnkgU2l6ZSBEaXN0cmlidXRpb24iLCB4bGFiID0gIkNvbXBhbnkgU2l6ZSIsIHlsYWIgPSAiQ291bnQiLCB5bGltID0gYygwLCBtYXhfY291bnQgKyAxMCkpDQoNCg0KYGBgDQojIyMgU2FsYXJpZXMgRGlzdHJpYnV0aW9uIA0KYGBge3J9DQojIFNldCB0aGUgc2NpcGVuIG9wdGlvbiB0byBhIGhpZ2ggdmFsdWUNCm9wdGlvbnMoc2NpcGVuID0gMTApDQoNCiMgQ3JlYXRlIGJveHBsb3Qgb2Ygc2FsYXJpZXMNCmJwIDwtIGJveHBsb3QoZGYkc2FsYXJ5X2luX3VzZCAvIDEwMDAsIA0KICAgICAgICBjb2wgPSAic2t5Ymx1ZSIsIA0KICAgICAgICBtYWluID0gIkJveHBsb3Qgb2YgU2FsYXJpZXMiLA0KICAgICAgICB5bGFiID0gIlNhbGFyeSBpbiBUaG91c2FuZHMgVVNEIiwNCiAgICAgICAgbm90Y2ggPSBUUlVFKQ0KDQpgYGANCiMjIyBTYWxhcmllcyBjbGFzc2lmaWNhdGlvbiBEaXN0cmlidXRpb24gDQpgYGB7cn0NCg0KDQojIEdldCB0aGUgc29ydGVkIHNhbGFyeSBjbGFzc2lmaWNhdGlvbiBkYXRhDQpzYWxhcnlfY2xhc3NpZmljYXRpb24gPC0gc29ydCh0YWJsZShkZiRzYWxhcnlfY2xhc3NpZmljYXRpb24pLCBkZWNyZWFzaW5nID0gVFJVRSkNCg0KDQpzYWxhcnlfY2xhc3NpZmljYXRpb25fZGYgPC0gZGF0YS5mcmFtZShzYWxhcnlfY2xhc3NpZmljYXRpb249IG5hbWVzKHNhbGFyeV9jbGFzc2lmaWNhdGlvbiApLCBjb3VudCA9IGFzLm51bWVyaWMoc2FsYXJ5X2NsYXNzaWZpY2F0aW9uICkpDQoNCmZpZyA8LSBwbG90X2x5KA0KICBkYXRhID0gc2FsYXJ5X2NsYXNzaWZpY2F0aW9uX2RmLA0KICB4ID0gfnJlb3JkZXIoc2FsYXJ5X2NsYXNzaWZpY2F0aW9uLCAtY291bnQpLA0KICB5ID0gfmNvdW50LA0KICB0eXBlID0gImJhciIsDQogIG1hcmtlciA9IGxpc3QoY29sb3IgPSBjdXN0b21fY29sb3JzKSwNCiAgdGV4dCA9IH5jb3VudCwNCiAgd2lkdGggPSA3MDAsDQogIGhlaWdodCA9IDQwMA0KKQ0KDQpmaWcgPC0gZmlnICU+JSBsYXlvdXQoDQogIHRpdGxlID0gIlNhbGFyeSBDbGFzc2lmaWNhdGlvbiBEaXN0cmlidXRpb24iLA0KICB4YXhpcyA9IGxpc3QodGl0bGUgPSAiU2FsYXJ5IENsYXNzaWZpY2F0aW9uIiksDQogIHlheGlzID0gbGlzdCh0aXRsZSA9ICJDb3VudCIpLA0KICBmb250ID0gbGlzdChzaXplID0gMTcpLA0KICB0ZW1wbGF0ZSA9ICJnZ3Bsb3QyIg0KKQ0KDQpmaWcNCg0KDQoNCmBgYA0KYGBge3J9DQojIENyZWF0ZSBhIGRhdGEgZnJhbWUgd2l0aCBjb3VudHMgb2YgZXhwZXJpZW5jZSBsZXZlbHMgYnkgc2FsYXJ5IGNsYXNzaWZpY2F0aW9uDQpleHBlcmllbmNlX3NhbGFyeSA8LSB0YWJsZShkZiRleHBlcmllbmNlX2xldmVsLCBkZiRzYWxhcnlfY2xhc3NpZmljYXRpb24pDQoNCiMgRGVmaW5lIGN1c3RvbSBjb2xvcnMgZm9yIGVhY2ggZXhwZXJpZW5jZSBsZXZlbA0KY3VzdG9tX2NvbG9ycyA8LSBjKCIjNjlEMkU3IiwgIiMxOTAwZmYiLCAiI0ZGNjM2MSIsICIjRkZENzAwIikNCg0KIyBDcmVhdGUgYSBkYXRhIGZyYW1lIGZvciB0aGUgcGxvdA0KcGxvdF9kYXRhIDwtIGRhdGEuZnJhbWUoRXhwZXJpZW5jZSA9IHJvd25hbWVzKGV4cGVyaWVuY2Vfc2FsYXJ5KSwgDQogICAgICAgICAgICAgICAgICAgICAgICBTYWxhcnlfQ2xhc3NpZmljYXRpb24gPSBjb2xuYW1lcyhleHBlcmllbmNlX3NhbGFyeSksIA0KICAgICAgICAgICAgICAgICAgICAgICAgQ291bnQgPSBhcy52ZWN0b3IoZXhwZXJpZW5jZV9zYWxhcnkpKQ0KDQojIENvbnZlcnQgQ291bnQgY29sdW1uIHRvIG51bWVyaWMNCnBsb3RfZGF0YSRDb3VudCA8LSBhcy5udW1lcmljKHBsb3RfZGF0YSRDb3VudCkNCg0KIyBDcmVhdGUgdGhlIGJhciBwbG90DQpsaWJyYXJ5KHBsb3RseSkNCmZpZyA8LSBwbG90X2x5KGRhdGEgPSBwbG90X2RhdGEsIHggPSB+U2FsYXJ5X0NsYXNzaWZpY2F0aW9uLCB5ID0gfkNvdW50LCANCiAgICAgICAgICAgICAgIGNvbG9yID0gfkV4cGVyaWVuY2UsIGNvbG9ycyA9IGN1c3RvbV9jb2xvcnMsIHR5cGUgPSAiYmFyIikgJT4lDQogIGxheW91dCh0aXRsZSA9ICJFeHBlcmllbmNlIExldmVsIGJ5IFNhbGFyeSBDbGFzc2lmaWNhdGlvbiIsDQogICAgICAgICB4YXhpcyA9IGxpc3QodGl0bGUgPSAiU2FsYXJ5IENsYXNzaWZpY2F0aW9uIiksDQogICAgICAgICB5YXhpcyA9IGxpc3QodGl0bGUgPSAiQ291bnQiKSwNCiAgICAgICAgIGZvbnQgPSBsaXN0KHNpemUgPSAxNyksDQogICAgICAgICB0ZW1wbGF0ZSA9ICJwbG90bHlfZGFyayIpDQoNCmZpZw0KDQoNCmBgYA0KDQoNCg0KNC4gICoqTW9kZWxpbmcqKg0KYVwuIExvZ2lzdGljIHJlZ3Jlc3Npb24NCmBgYHtyfQ0KZGYkc2FsYXJ5X2NsYXNzaWZpY2F0aW9uIDwtIGZhY3RvcihkZiRzYWxhcnlfY2xhc3NpZmljYXRpb24pDQojIDMgLSA1OA0Kc2V0LnNlZWQoMykgICMgU2V0IGEgc2VlZCBmb3IgcmVwcm9kdWNpYmlsaXR5DQp0cmFpbl9pbmRpY2VzIDwtIHNhbXBsZSgxOm5yb3coZGYpLCAwLjggKiBucm93KGRmKSkgICMgODAlIGZvciB0cmFpbmluZw0KdHJhaW5fZGF0YSA8LSBkZlt0cmFpbl9pbmRpY2VzLCBdDQp0ZXN0X2RhdGEgPC0gZGZbLXRyYWluX2luZGljZXMsIF0NCg0KIyBTZXBhcmF0ZSB0aGUgZmVhdHVyZXMgKGluZGVwZW5kZW50IHZhcmlhYmxlcykgZnJvbSB0aGUgdGFyZ2V0IHZhcmlhYmxlDQojICNYIDwtIHRyYWluX2RhdGFbLCAhKG5hbWVzKHRyYWluX2RhdGEpICVpbiUgYygic2FsYXJ5X2luX3VzZCIsICJzYWxhcnlfY2xhc3NpZmljYXRpb24iKSldDQpYIDwtIHRyYWluX2RhdGFbLGMoImV4cGVyaWVuY2VfbGV2ZWwiLCJjb21wYW55X3NpemUiLCJyZW1vdGVfcmF0aW8iKV0NClkgPC0gdHJhaW5fZGF0YSRzYWxhcnlfY2xhc3NpZmljYXRpb24NCmBgYA0KYGBge3J9DQojIEZpdCB0aGUgbG9naXN0aWMgcmVncmVzc2lvbiBtb2RlbA0KbG9naXN0aWNfbW9kZWwgPC0gbXVsdGlub20oWSB+IC4sIGRhdGEgPSBYKQ0KDQojIE1ha2UgcHJlZGljdGlvbnMgb24gdGhlIHRlc3QgZGF0YQ0KdGVzdF9kYXRhJHByZWRpY3RlZF9jbGFzc2lmaWNhdGlvbiA8LSBwcmVkaWN0KGxvZ2lzdGljX21vZGVsLCBuZXdkYXRhID0gdGVzdF9kYXRhKQ0KDQojIEV2YWx1YXRlIG1vZGVsIHBlcmZvcm1hbmNlDQpsaWJyYXJ5KGNhcmV0KQ0KY29uZnVzaW9uX21hdHJpeCA8LSBjb25mdXNpb25NYXRyaXgodGVzdF9kYXRhJHByZWRpY3RlZF9jbGFzc2lmaWNhdGlvbiwgdGVzdF9kYXRhJHNhbGFyeV9jbGFzc2lmaWNhdGlvbikNCg0KcHJpbnQoY29uZnVzaW9uX21hdHJpeCkNCg0KYGBgDQpiXC4gUmFuZG9tIEZvcmVzdCANCg0KYGBge3J9DQojIExvYWQgdGhlIHJhbmRvbUZvcmVzdCBwYWNrYWdlDQpsaWJyYXJ5KHJhbmRvbUZvcmVzdCkNCmxpYnJhcnkoY2FyZXQpDQoNCiMgVHJhaW4gdGhlIFJhbmRvbSBGb3Jlc3QgY2xhc3NpZmllcg0KcmZfbW9kZWwgPC0gcmFuZG9tRm9yZXN0KFgsIFkpDQoNCiMgTWFrZSBwcmVkaWN0aW9ucyBvbiBuZXcgZGF0YQ0KIyBBc3N1bWluZyB5b3UgaGF2ZSBhIGRhdGEgZnJhbWUgY2FsbGVkIHRlc3RfZGF0YSB3aXRoIHNpbWlsYXIgZmVhdHVyZXMgYXMgdHJhaW5fZGF0YQ0KcHJlZGljdGlvbnMgPC0gcHJlZGljdChyZl9tb2RlbCwgdGVzdF9kYXRhKQ0KDQojIENhbGN1bGF0ZSBhY2N1cmFjeQ0KYWNjdXJhY3kgPC0gc3VtKHByZWRpY3Rpb25zID09IHRlc3RfZGF0YSRzYWxhcnlfY2xhc3NpZmljYXRpb24pIC8gbGVuZ3RoKHRlc3RfZGF0YSRzYWxhcnlfY2xhc3NpZmljYXRpb24pDQpjYXQoIkFjY3VyYWN5OiIsIGFjY3VyYWN5LCAiXG4iKQ0KDQojIENyZWF0ZSBjb25mdXNpb24gbWF0cml4DQpjb25mX21hdHJpeCA8LSB0YWJsZShwcmVkaWN0aW9ucywgdGVzdF9kYXRhJHNhbGFyeV9jbGFzc2lmaWNhdGlvbikNCmNhdCgiQ29uZnVzaW9uIE1hdHJpeDpcbiIpDQpwcmludChjb25mX21hdHJpeCkNCg0KIyBDYWxjdWxhdGUgcHJlY2lzaW9uLCByZWNhbGwsIGFuZCBGMS1zY29yZSBmb3IgZWFjaCBjbGFzcw0KY2xhc3NfbWV0cmljcyA8LSBjYXJldDo6Y29uZnVzaW9uTWF0cml4KHByZWRpY3Rpb25zLCB0ZXN0X2RhdGEkc2FsYXJ5X2NsYXNzaWZpY2F0aW9uKQ0KY2F0KCJDbGFzcyBNZXRyaWNzOlxuIikNCnByaW50KGNsYXNzX21ldHJpY3MkYnlDbGFzcykNCmBgYA0KDQoNCmBgYHtyfQ0KaW1wb3J0YW5jZSA8LSB2YXJJbXAocmZfbW9kZWwpDQpwcmludChpbXBvcnRhbmNlKQ0KDQoNCmBgYA0KY1wuIFN1cHBvcnQgVmVjdG9yIE1hY2hpbmUgKFNWTSkgDQpgYGB7cn0NCmxpYnJhcnkoZTEwNzEpDQojIFRyYWluIHRoZSBTVk0gY2xhc3NpZmllcg0Kc3ZtX21vZGVsIDwtIHN2bShZIH4gLiwgZGF0YSA9IFgsIGtlcm5lbCA9ICJyYWRpYWwiKQ0KDQojIE1ha2UgcHJlZGljdGlvbnMgb24gbmV3IGRhdGENCiMgQXNzdW1pbmcgeW91IGhhdmUgYSBkYXRhIGZyYW1lIGNhbGxlZCB0ZXN0X2RhdGEgd2l0aCBzaW1pbGFyIGZlYXR1cmVzIGFzIHRyYWluX2RhdGENCnByZWRpY3Rpb25zIDwtIHByZWRpY3Qoc3ZtX21vZGVsLCB0ZXN0X2RhdGEpDQoNCiMgRXZhbHVhdGUgdGhlIG1vZGVsDQojIEFzc3VtaW5nIHlvdSBoYXZlIHRoZSBhY3R1YWwgdGFyZ2V0IHZhcmlhYmxlIHZhbHVlcyBpbiB0ZXN0X2RhdGEkc2FsYXJ5X2NsYXNzaWZpY2F0aW9uDQphY2N1cmFjeSA8LSBzdW0ocHJlZGljdGlvbnMgPT0gdGVzdF9kYXRhJHNhbGFyeV9jbGFzc2lmaWNhdGlvbikgLyBsZW5ndGgodGVzdF9kYXRhJHNhbGFyeV9jbGFzc2lmaWNhdGlvbikNCmNhdCgiQWNjdXJhY3k6IiwgYWNjdXJhY3ksICJcbiIpDQoNCiMgQ3JlYXRlIGNvbmZ1c2lvbiBtYXRyaXgNCmNvbmZfbWF0cml4IDwtIHRhYmxlKHByZWRpY3Rpb25zLCB0ZXN0X2RhdGEkc2FsYXJ5X2NsYXNzaWZpY2F0aW9uKQ0KY2F0KCJDb25mdXNpb24gTWF0cml4OlxuIikNCnByaW50KGNvbmZfbWF0cml4KQ0KYGBgDQogICAgDQpgYGB7cn0NCnBsb3RfZGF0YSA8LSBkYXRhLmZyYW1lKGFjdHVhbCA9IHRlc3RfZGF0YSRzYWxhcnlfY2xhc3NpZmljYXRpb24sIHByZWRpY3RlZCA9IHByZWRpY3Rpb25zKQ0KZ2dwbG90KHBsb3RfZGF0YSwgYWVzKHggPSBhY3R1YWwsIHkgPSBwcmVkaWN0ZWQpKSArIA0KICBnZW9tX3BvaW50KCkgKw0KICBnZW9tX2FibGluZShpbnRlcmNlcHQgPSAwLCBzbG9wZSA9IDEsIGxpbmV0eXBlID0gImRhc2hlZCIsIGNvbG9yID0gInJlZCIpICsNCiAgbGFicyh4ID0gIkFjdHVhbCBTYWxhcnkiLCB5ID0gIlByZWRpY3RlZCBTYWxhcnkiKSArDQogIGdndGl0bGUoIkFjdHVhbCB2cy4gUHJlZGljdGVkIFNhbGFyaWVzIikNCmBgYA0KDQogICAgZFwuIERlY2lzaW9uIFRyZWUNCg0KYGBge3J9DQojdW5pcXVlX3ZhbHVlcyA8LSBsYXBwbHkoZGYsIHVuaXF1ZSkNCiNwcmludCh1bmlxdWVfdmFsdWVzKQ0KYGBgDQoNCg0KYGBge3J9DQpzZXQuc2VlZCgzKSAgIyBGb3IgcmVwcm9kdWNpYmlsaXR5DQoNCiMgR2VuZXJhdGUgcmFuZG9tIGluZGljZXMgZm9yIHNwbGl0dGluZw0KaW5kaWNlcyA8LSBzYW1wbGUoMTpucm93KGRmKSwgc2l6ZSA9IG5yb3coZGYpLCByZXBsYWNlID0gRkFMU0UpDQoNCiMgQ2FsY3VsYXRlIHRoZSBudW1iZXIgb2Ygcm93cyBmb3IgdHJhaW5pbmcgYW5kIHRlc3Rpbmcgc2V0cw0KdHJhaW5fc2l6ZSA8LSByb3VuZCgwLjggKiBucm93KGRmKSkNCnRlc3Rfc2l6ZSA8LSBucm93KGRmKSAtIHRyYWluX3NpemUNCg0KIyBTcGxpdCB0aGUgZGF0YXNldCBpbnRvIHRyYWluaW5nIGFuZCB0ZXN0aW5nIHNldHMNCnRyYWluX2RhdGEgPC0gZGZbaW5kaWNlc1sxOnRyYWluX3NpemVdLCBdDQp0ZXN0X2RhdGEgPC0gZGZbaW5kaWNlc1sodHJhaW5fc2l6ZSArIDEpOm5yb3coZGYpXSwgXQ0KDQojIENoZWNrIGRpbWVuc2lvbnMgb2YgdGhlIHRyYWluaW5nIGFuZCB0ZXN0aW5nIHNldHMNCmRpbSh0cmFpbl9kYXRhKQ0KZGltKHRlc3RfZGF0YSkNCmBgYA0KYGBge3J9DQpsaWJyYXJ5KCJycGFydCIpDQpsaWJyYXJ5KCJycGFydC5wbG90IikNCg0KDQpkZWNpc2lvbl90cmVlIDwtIHJwYXJ0KHNhbGFyeV9jbGFzc2lmaWNhdGlvbiB+IHJlbW90ZV9yYXRpbyArIGNvbXBhbnlfc2l6ZSArIGV4cGVyaWVuY2VfbGV2ZWwgKyBlbXBsb3ltZW50X3R5cGUsDQogICAgICAgICAgICBkYXRhID0gdHJhaW5fZGF0YSwNCiAgICAgICAgICAgIG1ldGhvZD0iY2xhc3MiKQ0KIyBJIG9ubHkgdHJpZWQgYXR0cmlidXRlcyB3aXRoIGEgbGltaXRlZCBudW1iZXIgb2YgdW5pcXVlIHZhbHVlcyBiZWNhdXNlIHVzaW5nIGF0dHJpYnV0ZXMgbGlrZSBqb2JfdGl0bGUgYW5kIGVtcGxveWVlX3Jlc2lkZW5jZSBjYXVzZWQgdGhlIHByb2dyYW0gdG8gcnVuIGVuZGxlc3NseS4NCiMgcmVtb3RlX3JhdGlvIGlzIHRoZSBtb3N0IHVzZWZ1bCB2YXJpYWJsZSBmb3IgcHJlZGljdGlvbg0KDQojIE1ha2UgcHJlZGljdGlvbnMgb24gdGVzdCBkYXRhDQpwcmVkaWN0aW9ucyA8LSBwcmVkaWN0KGRlY2lzaW9uX3RyZWUsIG5ld2RhdGEgPSB0ZXN0X2RhdGEsIHR5cGUgPSAiY2xhc3MiKQ0KDQojIEV2YWx1YXRlIHRoZSBtb2RlbA0KYWNjdXJhY3kgPC0gc3VtKHByZWRpY3Rpb25zID09IHRlc3RfZGF0YSRzYWxhcnlfY2xhc3NpZmljYXRpb24pIC8gbnJvdyh0ZXN0X2RhdGEpDQpwcmludChwYXN0ZSgiQWNjdXJhY3k6IiwgYWNjdXJhY3kpKQ0KcnBhcnQucGxvdChkZWNpc2lvbl90cmVlKQ0KDQpgYGANCg0KDQpgYGB7cn0NCnJwYXJ0LnBsb3Qoc2FsYXJ5LCB0eXBlPTIsIGV4dHJhPTEwMSwgYm94LnBhbGV0dGU9bGlzdCgiQmx1ZXMiLCAiT3JhbmdlcyIsICJHcmF5cyIsICJHcmVlbnMiKSkNCmBgYA0KICAgIA0KNi4gICoqTWFqb3IgQ2hhbGxlbmdlcyBhbmQgU29sdXRpb25zXA0KICAgICoqDQoNCiAgICAtICAgRGF0YSBpcyBub3QgdXBkYXRlZA0KICAgIC0gICBEYXRhc2V0IGltYmFsYW5jZSANCiAgICAtICAgRGF0YSBpcyBpbWJhbGFuY2VkDQoNCjcuICAqKkNvbmNsdXNpb24gYW5kIEZ1dHVyZSBXb3JrKioNCg0KOC4gICoqUmVmZXJlbmNlcyoqDQoNCiAgICBbVGhlIERhdGEgU2NpZW50aXN0IEpvYiBPdXRsb29rIGluIDIwMjMgXHwgMzY1IERhdGEgU2NpZW5jZV0oaHR0cHM6Ly8zNjVkYXRhc2NpZW5jZS5jb20vY2FyZWVyLWFkdmljZS9kYXRhLXNjaWVudGlzdC1qb2Itb3V0bG9vay8pDQoNCiAgICBbV2hpY2ggSW5kdXN0cnkgUGF5cyB0aGUgSGlnaGVzdCBEYXRhIFNjaWVudGlzdCBTYWxhcnk/IEhvdyBUbyBNYWtlIFRoZSBNb3N0IE1vbmV5IEFzIEEgRGF0YSBTY2llbnRpc3QgLSBaaXBwaWFdKGh0dHBzOi8vd3d3LnppcHBpYS5jb20vYWR2aWNlL2hpZ2hlc3QtcGF5aW5nLWRhdGEtc2NpZW50aXN0LWpvYnMvKQ0KDQogICAgW0J1cnRjaC1Xb3Jrcy1TdHVkeV9EUy1QQVAtMjAxOS5wZGYgKGJ1cnRjaHdvcmtzLmNvbSldKGh0dHBzOi8vd3d3LmJ1cnRjaHdvcmtzLmNvbS93cC1jb250ZW50L3VwbG9hZHMvMjAxOS8wNi9CdXJ0Y2gtV29ya3MtU3R1ZHlfRFMtUEFQLTIwMTkucGRmKQ0KDQogICAgW05ldyBWaXNpZXIgUmVwb3J0IFJldmVhbHMgNzklIG9mIEVtcGxveWVlcyBXYW50IFBheSBUcmFuc3BhcmVuY3kgKHBybmV3c3dpcmUuY29tKV0oaHR0cHM6Ly93d3cucHJuZXdzd2lyZS5jb20vbmV3cy1yZWxlYXNlcy9uZXctdmlzaWVyLXJlcG9ydC1yZXZlYWxzLTc5LW9mLWVtcGxveWVlcy13YW50LXBheS10cmFuc3BhcmVuY3ktMzAxNTI3MzA1Lmh0bWwpDQoNCiAgICBbTW9yZSBOQSBvcmdhbml6YXRpb25zIHBsYW4gdG8gZGlzY2xvc2UgcGF5IGluZm9ybWF0aW9uIC0gV1RXICh3dHdjby5jb20pXShodHRwczovL3d3dy53dHdjby5jb20vZW4tdXMvbmV3cy8yMDIyLzA5L21vcmUtbm9ydGgtYW1lcmljYW4tb3JnYW5pemF0aW9ucy1wbGFuLXRvLWRpc2Nsb3NlLXBheS1pbmZvcm1hdGlvbi1zdXJ2ZXktZmluZHMpDQoNCiAgICBbU3R1ZHk6IFBheSBUcmFuc3BhcmVuY3kgUmVkdWNlcyBSZWNydWl0aW5nIENvc3RzIChzaHJtLm9yZyldKGh0dHBzOi8vd3d3LnNocm0ub3JnL3Jlc291cmNlc2FuZHRvb2xzL2hyLXRvcGljcy90YWxlbnQtYWNxdWlzaXRpb24vcGFnZXMvcGF5LXRyYW5zcGFyZW5jeS1yZWR1Y2VzLXJlY3J1aXRpbmctY29zdHMuYXNweCk=